home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vi 88.d64 / mockpaint_cars (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  16 lines
  1. 1000 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKE646,1:PRINTSPC(12)"[129]INKWELL SYSTEMS":PRINTSPC(12)"P R E S E N T S":PRINTSPC(1)"A DEMONSTRATION OF GRAPHICS AND SOUND":IFB=0THENB=1:LOAD"CARS* ",8,1
  2. 1040 IFT=0THENT=1:LOAD"DDMOCKPAINT",8,1
  3. 1041 GOSUB1069:SYS32923:FORI=1TO10000:NEXT:GOSUB1110:GOSUB20000:GOSUB1069:GOTO1150
  4. 1069 POKE53280,12:POKE53265,59:POKE53272,120:POKE56576,PEEK(56576)AND254:RETURN
  5. 1109 POKE53280,0
  6. 1110 POKE53265,27:POKE53272,21:POKE56576,PEEK(56576)OR1:RETURN
  7. 1150 ::GOSUB1069:FORI=1TO101000:NEXT:POKE33847,4:GOSUB1109:FORI=1TO10000:NEXT:PRINT"[147]":GOTO1041
  8. 20000 POKE53280,0:POKE53281,0:PRINT"[147]":PRINT"":A$="       [152]YOU MIGHT THINK ITS MACPAINT":FORI=1TOLEN(A$):FORZZ=1TO50:NEXTZZ:PRINTMID$(A$,I,1);:NEXTI:PRINT"":A$="[152]BUT IT'S NOT.  ITS [154]MOCKPAINT":A$="       "+A$:FORI=1TOLEN(A$)
  9. 20100 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT"[159]":A$="      [158]- A HIGH RESOLUTION DRAWING":FORI=1TOLEN(A$):FORZZ=1TO50:NEXTZZ:PRINTMID$(A$,I,1);:NEXTI:PRINT:A$="        [158]CREATED WITH FLEXIDRAW.":FORI=1TOLEN(A$)
  10. 20163 FORZZ=1TO50:NEXTZZ:PRINTMID$(A$,I,1);:NEXTI:PRINT"":A$=" [129]FLEXIDRAW[152] IS A LIGHT PEN":A$="       "+A$:FORI=1TOLEN(A$):PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT:A$="     DRAWING PROGRAM.      ":A$="       "+A$
  11. 20212 FORI=1TOLEN(A$):PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT"":A$=" FROM [129]INKWELL SYSTEMS."
  12. 20219 A=LEN(A$):IFA/2<>INT(A/2)THENA$=" "+A$:GOTO20219
  13. 20220 FORI=1TOA/2:PRINTTAB(19-I);LEFT$(A$,I);RIGHT$(A$,I):PRINT"[145]";:FORZZ=1TO50:NEXTZZ:NEXTI:PRINT"":A$="[129]FLEXIDRAW GIVES THE COMMODORE 64":A$="    "+A$:FORI=1TOLEN(A$):PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT:A$="THE POWERS OF A MACINTOSH.[146]"
  14. 20372 A$="       "+A$:FORI=1TOLEN(A$):PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT"":A$="  COMPLIMENTS OF [158]PETER AND PAUL HUGHES":FORI=1TOLEN(A$):M=ASC(MID$(A$,I,1)):IFM<65ORM>90THENPRINTCHR$(M);:NEXTI
  15. 20430 FORJ=65TOM:FORH=1TO5:NEXTH:PRINTCHR$(J);"[157]";:NEXTJ:PRINT"";:NEXTI:FORU=1TO5000:NEXTU:RETURN
  16.